TERMINAL.ASM AUGUST 27, 1981 


THIS PROGRAM WAS ORIGINALLY DEVELOPED BY THE SMALL SYSTEMS 
GROUP OF THE INSTITUTE OF COMPUTER SCIENCE, UNIVERSITY OF GUELPH, 
COPYRIGHT 1979 BY DON GENNER. 

ADAPTED TO RUN IN A MACHINE INDEPENDENT CP/M ENVIRONMENT 
BY JOHN WILSON. 

MODIFIED BY J. LAW, DEPT. OF PHYSICS, UNIVERSITY OF GUELPH, 
WITH DON GENNER»S HELP. 

EXTENSIVELY MODIFIED TO BE MORE NEARLY HOST INDEPENDENT, 

TO RECEIVE INTO A BUFFER, TO SEND BY LOGICAL DISK SECTOR, 

EXPANDED LOCAL MODE, TO WORK WITH STANDARD BDOS, AND MANY OTHERS 
BY GEORGE CORLISS, DEPT. OF MATH., MARQUETTE UNIVERSITY. 

MODIFIED FOR SLOW PRINTER BY J. GLENN BROOKSHEAR, MARQUETTE 
UNIVERSITY. 


DOCUMENTATION AND INSTRUCTIONS ARE IN FILE TERMINAL.DOC 




r r:. ' 


^ J 




BASE 

EQU 

4200H 


USER 

EQU 

BASE+IOOH 

FCB 

EQU 

BASE+005CH 

STACK 

EQU 

USER+0D4)-^}f^"^ 

BUFF 

EQU 

USER+OEOOH <DvPLR^F 

PRTBUF 

CPM 

EQU 

EQU 

USER+OyOOH^ . ^ 

BASE 

BDOS 

• 

EQU 

BASE+0005H 

CTLA 

EQU 

OlH 


CTLB 

EQU 

02H 


CTLC 

EQU 

03H 


CTLE 

EQU 

OSH 


BEL 

EQU 

07H 

;CTRL G 

BS 

EQU 

OSH 

;BACKSPACE = CTRL H 

TAB 

EQU 

09H 

;CTRL I 

LF 

EQU 

OAH 

;LINE FEED = CTRL J 

FF 

EQU 

OCH 

;FORM FEED = CTRL L 

CR 

EQU 

ODH 

;CTRL M 

CTLP 

EQU 

lOH 


XON 

EQU 

IIH 

;CRTL Q 

XOFF 

EQU 

13H 

; CTRL S 

CTLY 

EQU 

19H 

;CTRL Y 

EOD 

EQU 

lAH 

;CP/M END OF FILE = 

ESC 

EQU 

IBH 

;ESCAPE 

DEL 

• 

i 

EQU 

7FH 


• 



BEGIN 

$ 

ORG 

USER 



JMP 

ENTER 


HOSTON 

DB 

OlH 


HEAD 

DW 

PRTBUF 


TAIL 

DW 

PRTBUF 


BAKLOG 

DB 

00 


STOPLMT 

EQU 

OCOH 


STRTLMT 

EQU 

20H 







CF/M 








£5 








n 






1^- 


K) 


6s» 


(C 


















/•S' 






= CTRL Z 









; HOST DEPENDENCIES: 

CRMSG DB CR,*$* ;CARRIAGE RETURN MESSAGE 

BADBS EQU BS ;WRONG BS/DEL CHAR FOR HOST 

GOODBS EQU DEL ;CORRECT BS/DEL CHAR FOR HOST 

HSTEOL EQU CR ;HOST END OF LINE 

HSTEOD EQU EOD ;HOST END OF FILE 

• 

HOSTBF EQU $ ;INITIALIZED FOR SIGMA 9 

HGO DB CR,•$*,*345* ; START HOST 

HREC DB XON,* $ *,'345 * ; SET UP HOST TO BEGIN RECEIVING 


HCLOSE 

DB 

ESC,*F»,XOFF,*$»,'5* 

?CLOSE HOST FILE AFTER 

REC. 

HSTOP 

DB 

ESC,*H*,*$*,*45* 

?HOST, STOP SENDING ME 

STUFF 

LONMSG 

DB 

*6274,BROOKSHEARG*,CR 




DB 

*EHB*,CR,*T 37,0*,CR,*$* 




DB 

*01234567890* -- 



OFFMSG 

DB 

*OFF*,CR, *$* , *(Jp789012345* 


HNOSND 

• 

DB 

ESC,*H*,CR,CTLY,*Q*,CR,*$*,* 890* 


VAXMSG 

EQU 

$ 

VAX-11 MESSAGES START HERE. 

VHGO 

DB 

XON,*$*,*345* 

START HOST 


VHREC 

DB 

*$*,*2345* 

SET UP HOST TO BEGIN 

RECEIVING 

VHCLOSE 

DB 

EOD,*$*,*345* 

CLOSE HOST FILE AFTER 

REC. 

VHSTOP 

DB 

XOFF,*$*,*345* 

HOST, STOP SENDING ME 

STUFF 

VLONMSG 

DB 

*6274 * ,CR, *EFIB* ,CR 




DB 

* SET TERM/HOSTSYNC *,CR,* $ * 



DB 

*901234567890* 



VOFFMSG 

DB 

*LOGOUT*,CR,*$*,*9012345* 



VHNOSND 

DB 

XOFF,CTLC,*$*,*4567890* 




PROGRAM LAYOUT 
MAIN PROGRAM 

I/O ROUTINES CONIO, PRNT, SOUT 
SPECIAL CONTROL CODE HANDLERS 

SWCHPT, CRTOUT, TRADE, LOCAL 
SUBROUTINES FOR LOC7U:i 

DSKDIR, HELP, LOGON, OFF, PRINTR, RECEIVE, SEND 
CP/M BDOS CALLS 


ENTER 


LXI 

H,0 

DAD 

SP 

SHLD 

STACK+254 

LXI 

SP,STACK+254 

MVI 

A,83H 

OUT 

330Q+3 

MVI 

A,3 

OUT 

330Q+4 

MVI 

A,80H 

OUT 

330Q 

MVI 

A,1 

OUT 

330Q+1 

MVI 

A, 3 

OUT 

330Q+3 

XRA 

A 

OUT 

330Q+1 

JMP 

TERMINAL 


EXIT 


LHLD STACK+254 
SPHL 

JMP CPM 








BEGIN MAIN PROGRAM 


TERMINAL: 



IXI 

D,TMESS 



CALL 

STRINGF 


• 

JMP 

TERM2 


TMESS 

• 

DB 

CR,LF, »' 

lERJilNAL MODE * ,CR,LF,LF, ' 

TERM2 

CALL 

CONIO 

;ANYTHING FROM TERMINAL? 


•JZ 

SGET 

;NO - MOVE ON 


MOV 

E,A 

;YES - LOAD E 


PROCESS SPECIAL CONTROL CHARACTERS 


P 

A 

B 

C 

E 


SPUT 


p 


DPUTB 

SGET 


CKPRT 


TOGGLE PRINTER ON/OFF 
ENTER LOCAL MODE 

SET BELL TO RING ON NEXT HOST CHAR 

RETURN TO CP/M 

TOGGLE CRT ECHO ON/OFF 


ESC 

FORCE SEND 

NEXT CHAR TO HOST 

CPI 

CTLP 


JZ 

SWCHPT 

; IF P 

CPI 

CTf,A 


JZ 

LOCAL 

; IF A 

CPI 

CTLB 


JZ 

SWBEL 

; IS B 

CPI 

CTLC 


JZ 

EXIT 

; IF C 

CPI 

CTLE 


JZ 

SWECHO 

; IF E 

CPI 

ESC 


JZ 

FORSND 

; IF ESCAPE 

CPI 

BADBS 


JZ 

TRADE 

; IF WRONG BS/DEL FOR HOST 

^ Pa5»^ 

V 


CALL 

PUNOUTF 

;SEND TO HOSrf 

'LDA 

ECHO 

;SHOULD CHARACTERS BE SENT 

CPI 

0 

;0 - YES, 1 - NO 

JNZ 

SGET 


MOV 

A,E 


CALL 

PRNT 

;SEND TO CONSOLE 

CALL 

RDRINPF 

;ANYTHING FROM HOST? 

JZ 

CKPRT 

;NO. CHECK PRINT BUFFER 

CALL 

PRNT 

;ECHO IT 

LDA 

BELWAK 

';IS BELL SWITCH SET? 

CPI 

0 


JZ 

CKPRT 

;IF NOT SET 

MVI 

E 0 BEL 

;RING BELL 

CALL 

CONOUTF 


XRA 

A 

;RESET BELL SWITCH 

STA 

BELWAK 


LDA 

BAKLOG 

;ANYTHING IN PRINT BUFFER? 

CPI 

00 


JZ 

TERM2 

;NO. TRY TERMINAL 

CALL 

PRTSTAT 

;PRINTER BUSY? 

CPI 

00 


JZ 

TERr42 

;YES. TRY TERMINAL 

LHLD 

HEAD 

;SEND aiARACTER TO PRINTER 

MOV 

E,M 

;AND SHIFT HEAD POINTER. 

INR 

L 


SHLD 

HEAD 


CALL 

LSTOUTF 


LDA 

BAKLOG 

;IF BACKLOG HAS DROPPED 






DCR 

A 

STA 

BAKLOG 

CPI 

STRTLMT 

JNZ 

TERM2 

CALL 

STRTHST 

JMP 

TERM2 


;T0 START LIMIT THEN TELL 
;HOST TO START SENDING AGAIN. 


; CHECK ON TERMINAL 


END OF MAIN PROGRAM 


CONIO 


PRNT 


PRNTl 


PRNT2 


PRNT 3 


CRLF 


MVI 

E,0FFH 

;DIRECT CONSOLE 

INPUT 

CALL 

DIRCONF 

; (A) = CHAR OR 

00 IF NO CHAR 

ORA 

A 

;FORCE FLAG 


RET 




PUSH 

H 

;PRINT CHAR (A) 

AT CONSOLE 

HJSH 

D 



MOV 

E,A 



CPI 

HSTEOL 

;END OF LINE? 


JZ 

PRNT2 



PUSH 

D 



CALL 

CONOUTF 


, 

POP 

D 



LDA 

AUXON 



CPI 

0 



JNZ 

PRNTl 

;AND PERHAPS AT 

THE PRINTER 

CALL 

LIST 



POP 

D 



POP 

H 



RET 




LDA 

AUXON 



CPI 

0 



JNZ 

PRNT 3 



LXI 

D,CRLF 



CALL 

STRINGF 



MVI 

E,CR 



CALL 

LIST 



MVI 

E,LF 



CALL 

LIST 



JMP 

PRNTl 



LXI 

D,CRLF 



CALL 

STRINGF 



JMP 

PRNTl 



DB 

CR,LF,*$ 

1 



PLACE CONTENTS OF E REGISTER IN PRINT BUFFER. 
IF BACKLOG IS THEN COH, TELL HOST TO WAIT. 


CAUTION*** HOST WAIT ROUTINE USES E REGISTER. 


LIST 

LHLD 

TAIL 



MOV 

M,E 



INR 

L 



SHLD 

TAIL 



LDA 

BAKLOG 



INR 

A 



STA 

BAKLOG 



CPI 

STOPLMT 



RNZ 




CALL 

STOPHST 



RET 



STOPHST 

LDA 

HOSTON 

;IS HOST ALREADY STOPPED? 


CPI 

00 



RZ 


;YES. RETURN 


LXI 

D,HSTOP 

;NO. THEN STOP IT. 





CALL 

MSGHOST 

MVI 

A,00 

STA 

HOSTON 

RET 


STRTHST LDA 

HOSTON 

CPI 

00 

RNZ 


LXI 

D,HGO 

CALL 

MSGHOST 

MVI 

A,01 

STA 

HOSTON 

RET 



IS HOST ALREADY STARTED? 

YES. RETURN 
NO. THEN START IT. 


SPECIAL CONTROL CODE HANDLERS 


SWCHPT 

LDA 

AUXON 




MOV 

B,A 




MVI 

A ^ 1 




SUB 

B 




STA 

AUXON 




JMP 

SGET 



AUXON 

• 

DB 

1 



SWBEL 

MVI 

A,1 


;SET BELL SWITCH 


STA 

BELWAK 




JMP 

SGET 



BELWAK 

DB 

0 



SWECHO 

LDA 

ECHO 




MOV 

MVI 

A,1 \ 

B 



SUB 




STA ' 

ECHO 




JMP 

SGET 



ECHO 

• 

DB 

1 

;1 - 

NO ECHO, 0 - ECHO TO CRT 

FORSND 

CALL 

CONINPF 


;FORCE SEND NEXT CHAR TO HOST 


MOV 

E,A 



• 

JMP 

SPUT 



LOCAL 

LXI 

D^LMESS 


;DISPLAY 'LOCAL MODE' 


CALL 

STRINGF 




CALL 

CONINPF 




CPI 

CR 




JZ 

HELP 




CPI 

CTLC 




JZ 

EXIT 




ANI 

5FH 


;CONVERT TO UPPER CASE 


SUI 

*A* 


;SET UP FOR JUMP TABLE 


JM 

NOTYET 




CPI 

lAH. 




JP 

NOTYET 


;IF ASCII 'Z' 


LXI 

H,IFA 




MOV 

E,A 


;LB OF INDEX 


MVI 

D,0 


;HB OF INDEX 


DAD 

D 


;ADD INDEX TO BASE OF JUMP TABLE 


DAD 

D 


; TWICE BECAUSE 2 BYTES/WORD 


INX 

H 


;ADDRESS HIGH BYTE FIRST 


MOV 

D,M 


;HB OF JUMP ADDRESS 


DCX 

H 




MOV 

E,M 


;LB OF JUMP ADDRESS 


XCHG 



;JUMP ADDRESS TO HL 









DUMMY 


btlLiU 

JMP 


DUMMY 


TABLE OF JUMP ADDRESSES; 

A B 


;FILL IN JUMP ADDRESS 
;JUMP ADDRESS IS SUPPLIED ABOVE 
. C W B U P 



IFA 

DW 

NOTYET .^JOTYET .EXIT, DSKDIR, TERMINAL, NOTYET , NOTYET 
HEJ^P , NOTYgT, NOTYEg, NOTYgT , LOGON, N^JtYET^n8tYET^§FF 


• 

/ 

• 

9 

DW 



m 

PRINTR,NOTYET,RECEIVE,SEND,TERMINAL,NOTYET,VAXHST 


• 

9 


W X Y Z 

f 

9 

DW 

WAIT,NOTYET,NOTYET,NOTYET 


• 

NOTYET 

LXI 

D,YETMSG 



CALL 

STRINGF 



JMP 

LOCAL 

9 

• 

9 




LMESS 

DB 

CR,LF,'LOCAL MODE $' 


YETMSG 

DB 

BEL,CR,LF,'NOT IMPLEMENTED YET.$' 

9 

FMESS 

• 

9 

DB 

CR,LF,'FILE NAME? $' 

9 

• 

TRADE 

-MVI 

E,GOODBS ;SUBSTITUTE GOOD BS/DEL CHAR 



JMP 

SPUT ;FOR A BAD ONE 


SUBROUTINES FOR LOCAL MODE 


DSKDIR 

• 

JMP 

NOTYET 

HELP 

LXI 

D,HLPMSG 


CALL 

STRINGF 


JMP 

LOCAL 

HLPMSG 

DB 

FF,LF,LF,' 


DB 

TAB, 'C ,TAB 


DB 

TAB , ' D ' , TAB 


DB 

TAB, 'E' ,TAB 


DB 

TAB, 'H' ,TAB 


DB 

TAB,'L',TAB 


DB 

TAB,'0',TAB 


DB 

TAB , ' P ' , TAB 


DB 

TAB,'R',TAB 


DB 

TAB,'S',TAB 


DB 

TAB,'T',TAB, 


DB 

TAB, 'V ,TAB, 


DB 

TAB, 'W' ,TAB, 


DB 

LF,TAB,'(L) 

• 

DB 

TAB,'(E) cor 

9 

LOGON 

LXI 

D,CRLF 


CALL 

STRINGF 


LXI 

D,LONMSG 


CALL 

MSGHOST 

• 

JMP 

TERM2 

OFF 

LXI 

D,CRLF 


CALL 

STRINGF 


LXI 

D,OFFMSG 


CALL 

MSGHOST 

9 

JMP 

TERM2 

. 

VAXHST 

MVI 

B,55H 


LXI 

H,VAXMSG 


LXI 

D,HOSTBF 

MOVBYT 

MOV 

A,M 




‘C.H ^ ^^ ^uF'-rE A s ^ 


OPTIONS AVAILABLE:»,CR,LF,LF 




;MOVE VAXMSG BLOCK TO 
;HOSTBF BLOCK AND THEN 
;GO TO TERM2. 


t.A'> 


' ^ -1 1 - 

f 


P ' (- ’ . 
; ,1 .rt 









MOV M,A 

DCR B 

CPI 00 

JZ VAXHl 

INX D 

INX H 

XCHG 

JMP MOVBYT 

VAXHl LXI D,VAXMOD ;INDICATE MODE IS VAX 

CALL STRINGF 

JMP TERM2 

VAXMOD DB *VAX-11 MODE.',CR,LF,LF,*$* 


PRINTR LDA AUXON 





STA AUXON 

JMP LOCAL 




;TOGGLE PRINTER OFF/ON 



RECEIVE A FILE FROM HOST 
ESTABLISH STATE 
LOOP FOR EACH CHAR 
CHECK CONSOLE 

ESC - 

GET CHAR FROM HOST 

NONE - 

END OF FILE - 

WRITE CHAR TO MEMORY 
MANAGE BUFFER 
COUNT CHARS IN SECTOR 
WHEN NECESSARY, WRITE SECTOR 
HOST WAIT 
DISK WRITE 
HOST CONTINUE 

CLOSE FILE 


RECEIVE 

MVI 

A, 01 

;TURN PRINTER OFF 


STA 

AUXON 



CALL 

GETFN 

;GET FILE NAME 


LXI 

D,FCB 

- 


CALL 

OPENFIF 



CPI 

OFFH 



JZ 

REC2 

;IF FILE IS NEW 


LXI 

D,EXISTM 

;FILE EXISTS. 


CALL 

STRINGF 

;WARN 


LXI 

D,FCB 

;AND DELETE OLD ONE 


CALL 

DELETEF 


REC2 

LXI 

D,FCB 



CALL 

MAKEFIF 



CPI 

OFFH 



JNZ 

REC7 

;IF MAKE WAS SUCCESSFUL 


LXI 

D,FULLMSG 



CALL 

STRINGF 


• 

JMP 

LOCAL 


EXISTM 

DB 

BEL,CR,LF, 

•EXISTING FILE DELETED*,CR,LF,*$» 

FULLMSG 

* 

DB 

BEL,CR,LF, 

'DIRECTORY FULL. ACTION CANCELLED.$* 

REC7 

LXI 

D,CRMSG 



CALL 

MSGHOST 


REC4 

CALL 

RDRINPF ;WAIT FOR ECHO OF CR SENT TO START TRANSMISSION 


CPI 

CR 



JNZ 

REC4 












;i.UUF rOR EACH CHAR 

1 



CPI 

EOD 

;TO TERMINATE TRANSMISSION 




JZ 

RECEOD 

;IF ESCAPE, ELSE IGNOR 




CALL 

RDRINPF 

;WAIT FOR CHAR 

"1 



JZ 

REC3 

;IF NOTHING WAS RECEIVED 




CPI 

HSTEOD 





JZ 

RECEOD 

;IF END OF FILE 




PUSH 

PSW 





CALL 

PRNT 

;ECHO TO CONSOL 




POP 

PSW 





PUSH 

PSW 





CALL 

WRTMEMF 





JNZ 

LOCAL 

;IF WRITE WAS NOT SUCCESSFUL 

1 



POP 

PSW 





CPI 

CR 





JNZ 

REC3 


9 



MVI 

A,LF 





CALL 

WRTMEMF 





JNZ 

LOCAL 


9 


m 

JMP 

REC3 



$ 

RECEOD 

LXI 

D,HNOSND 

;END OF TRANSMISSION. CLOSE 

9 



CALL 

MSGHOST 





MVI 

A, EOD 

;CP/M END OF FILE 




CALL 

WRTMEMF 


9 



JMP 

LOCAL 


9 


SEND 

A FILE 

FROM TERMINAL 

TO HOST 




ESTABLISH STATE 





OPEN FILE 


9 



SEND START SIGNAL 




LOOP FOR EACH LOGICAL SECTOR (128 BYTES) 




READ SECTOR FROM 

DISK 

9 



LOOP FOR EACH OF 

128 CHARS 





GET CHAR FROM MEMORY 



. 


lf? -- 


9 




CR? - 






TAB? - 






EOD? - 


3 




INVALID? - 

- 





SEND CHAR TO 

HOST 





IF RESPONSE, 

then XOFF? - 

9 




ELSE 

ECHO RESPONSE 





CHECK CONSOLE 





ESC - 


9 



EOD OR 

ESC: CLOSE FILES 


c 

I.. 

END 

MVI 

A,01 

;TURN PRINTER OFF 

9 



STA 

AUXON 





CALL 

GETFN 





LXI 

D,FCB 


n 



CALL 

OPENFIF 

;OPEN SOURCE FILE 




CPI 

OFFH 





JZ 

SENDNOT 

;IF FILE NOT FOUND 

9 



LXI 

d,hrec 

;SET HOST TO RECEIVE A FILE 




CALL 

MSGHOST 


9 

SENDLl 

LXI 

D,BUFF 

;LOOP FOR EACH SECTOR 




PUSH 

D 

;BUFF REAPPEARS IN HL 




CALL 

SETDMAF 


J 



LXI 

D,FCB 





CALL 

READSQF 





ORA 

A 


9 

JZ 

SENDL7 

;IF NOT END OF FILE 




PUSH 

B 

;FILL STACK TO BE CLEARED 




- - - - - 







9 

9 

9 

9 

9 

9 

3 

9 

9 

9 


9 

9 


I' 


9 














PUSH n ; iiN 

JMP BENDEOD 


SENDL7 

MVI 

B,129 

;INITIALIZE LOOP COUNTER 


PUSH 

B 


SENDL2 

POP 

B 

;LOOP FOR EACH CHAR 


POP 

H 



DCR 

B 



XRA 

A 



ADD 

B 

;DONE WITH THIS SECTOR? 


JZ 

SENDLl 

;GET NEXT SECTOR 


MOV 

A,M 

;GET CHAR FROM MEMORY 


INX 

H 



PUSH 

H 



PUSH 

B 



ANI 

7FH 

;GUARA.NTEE VALID ASCII CHAR 


MOV 

E,A 



CPI 

LF 


/ 

JZ 

SENDLF 



CPI 

CR 



JZ 

SENDL3 



CPI 

TAB 



JZ 

SENDTAB 



CPI 

EOD 



JZ 

SENDEOD 



CPI 

20H 

; 2OH ARE CONTROL CODES 


JM < 

SENDINV 


SENDL3 

CALL 

SENDCHR 

;RETURNS (A) = 0 IF EOD. 


ORA 

A 



JZ 

SENDEOD 



JMP 

SENDL2 

;GET NEXT CHAR 

SENDTAB 

JMP 

SENDL3 

;EXPAND TABS LATER 

SENDINV 

LXI 

D,INVMSG 

;INVALID CHAR IN FILE 


CALL 

STRINGF 

;WARN AND IGNOR 


JMP 

SENDL2 


INVMSG 

DB 

BEL,CR,LF, ' 

'INVALID CHARACTER IN FILE *,CR,LF,* $ * 

SENDCHR 

LDA 

ECHO 



CPI 

0 



JNZ 

SENDL8 

;IF NO ECHO TO CONSOLE BEFORE SEND 


MOV 

A,E 


"".. 

CALL 

PRNT 


SENDL8 

CALL 

PUNOUTF 

;SEND CHAR (E) TO HOST 


LDA 

NDELAY 

; NUMBER' OF DELAY LOOPS 


ORA 

A 



JZ 

SENDL4 

;IF NO DELAY 


CALL 

DELAYF 


SENDL4 

CALL 

RDRINPF 

; RESPONSE? 


ORA 

A 



JZ 

CKPUN 

;IF NOTHING RECEIVED 


CPI 

XOFF 

;XOFF MEANS WE MUST WAIT 


JZ 

SENDOFF 



CALL 

PRNT 

;ECHO IT TO CONSOL 


JMP 

SENDL4 

;MORE RESPONSE? 

CKPUN 

CALL 

PUNSTAT 

;KEEP WATCHING INPUT FROM 


CPI 

00 

;HOST UNTIL PUN; PORT 


JZ 

SENDL4 

;IS CLEAR. 

SENDL5 

CALL 

CONIO 

;CHECK FOR CONSOL INPUT 


SUI 

EOD 

; RETURN (A) = 0 IF Z 


RET 



SENDL6 

LXI 

D,WAITMG 

;TELL CONSOL WE ARE WAITING 


SENDOFF 

CALL 

RDRINPF 

;HOST IS SLOW - WAIT FOR XON 


CPI 

XON 



JZ 

CKPUN 



ORA 

A 



JZ 

SENDOFF 

;NOTHING RECEIVED, WAIT 


CALL 

PRNT 

;ELSE ECHO RECEIVED CHAR 


JMP 

SENDOFF 

;AND CONTINUE WAITING 

WAITMG 

•' 

DB 

CR,LF,'WAITING* 

,CR,LF,*$* 

SENDLF 

JMP 

SENDL3 

;LF CAN BE HANDLED LATER 

7 

SENDEOD 

LXI 

D,HCLOSE 

;CLOSE HOST FILE 


CALL 

MSGHOST 



POP 

B 



POP 

H 

;CLEAR STACK 


JMP 

LOCAL 


SENDNOT 

LXI 

D,FNFMSG 

;FILE NOT FOUND TO SEND 


CALL 

STRINGF 



JMP 

LOCAL 


TOFMSG 

DB 

BEL,CR,LF,'FILE 

NOT FOUND*,CR,LF,*$* 

WAIT 

LXI 

D,DELAYM 

;SET COUNTER FOR NUMBER 


CALL 

STRINGF 

;DELAY LOOPS 


CALL 

CONINPF 

;USE THE ASCII CODE AS INDEX 


STA 

NDELAY 


• 

JMP 

LOCAL 


DELAYM 

DB 

CR,LF,'ENTER DELAY COUNTER $* 

NDELAY 

DB 

0,0 


; GET A 

FILE 

NAME FROM THE OPERATOR 


STORE 

FILE NAME IN FCB 


GETFN 

LXI 

H,FCB 



XRA 

A 



STA 

FCB+12 

;ZERO CURRENT EXTENT 


STA 

FCB+32 

;ZERO CURRENT RECORD 


MVI 

M,0 



INX 

H 



MVI 

C,ll 



MVI 

A,* ' 



CALL 

FILLF 

;BLANK NAME AREA 


LXI 

D,FMESS 



CALL 

STRINGF 



LXI 

H,GETFNR 



MVI 

C,14 



MVI 

A,' * 



CALL 

FILLF 

;BLANK BUFFER AREA 


LXI 

D,GETFNRB 



CALL 

READCNF 



LXI 

D,GETFNR 



LXI 

H,FCB 



INX 

D 



LDAX 

D 



DCX 

D 



CPI 

1 • 1 
• 



JNZ 

GETNAM 



LDAX 

D 



ANI 

OFH 



CPI 

3 

;VALID DISK NUMBER? 




INX 

D 


GETNAM INX 

H 

;FILE NAME 

PUSH 

H 


MVI 

C,9 


GETFNLl LDAX 

D 


CPI 

t 1 

• 


JZ 

GETFNLIF 


CPI 

RZ 

1 t 


CPI 

'A* 


JM 

GETFN3 

;IF NOT LOWER CASE 

ANI 

5FH 

;CONVERT TO UPPER CASE 

GETFN3 MOV 

M,A 


INX 

D 


INX 

H 


DCR 

C 


JNZ 

GETFNLl 


GETFNLIF POP 

H 


LX I 

B,8 


DAD 

B 


INX 

D 


MVI 

C, 3 


GETFNL2 LDAX 

D 

; EXTENSION 

CPI 

I 1 


RZ 



CPI 

*A* 


JM 

GETFN4 

;IF NOT LOWER CASE 

ANI 

5FH 


GETFN4 MOV 

M,A 


INX 

D 


INX 

H 


DCR 

C 


JNZ 

RET 

GETFNL2 


GETFNRB DB 

14,0,*1234567890123456* 

GETFNR EQU 

GETFNRB+2 


; MSGHOST: 

SEND MESSAGE TO THE 

HOST 

; DE POINTS TO THE MESSAGE 

(MUST END IN A $) 

MSGHOST PUSH 

D 


MSGLl POP • 

D 


LDAX 

D 


INX 

D 


CPI 

*$* 


RZ 


;END OF MESSAGE 

PUSH 

D 


MOV 

E,A 


CALL 

PUNOUTF 

;SEND CHAR TO HOST 

CALL 

RDRINPF 

;HAS HOST SENT ANYTHING 

JZ 

MSGLl 

;IF NOTHING RECEIVED 

CALL 

PRNT 

;ECHO RECEIVED CHAR 

JMP 

• 

MSGLl 


• 

; FILLF 

FILL MEMORY WITH 

CHAR 

; ENTRY 

: (A) CHAR TO BE 

FILLED 


(C) NUMBER OF LOCATIONS TO BE FILLED 
(HL) BEGINNING ADDRESS 





DCR C 

JNZ FILLF 

RET 


DELAYF: DELAY FOR A WHILE. (A) CONTAINS COUNTER 


DELAYF 

DCR 

RZ 

A 


PUSH 

B 


MVI 

B,20H 

DELI 

DCR 

B 


JZ 

DEL 2 


LHLD 

NDELAY 


SHLD 

NDELAY 


JMP 

DELI 

DEL 2 

POP 

B 


JMP 

DELAYF 


WRTMEMF: HANDLE WRITING A CHAR IN REGISTER A TO MEMORY 

AND TO DISK. 

ASSUMES DISK FILE HAS ALREADY BEEN OPENED. 

IF (A) = EOD ( Z), DISK FILE IS CLOSED 


RETURNS (A) = 0 IF SUCCESSFUL, f 0 OTHERWISE 


WRTMEMF LHLD 

MEMADD 

MOV 

M,A 

INX 

H 

SHLD 

MEMADD 

CPI 

EOD 

JZ 

MEMCLOS 

LDA 

MEMCNT 

ADI 

1 

CPI 

80H 

JZ 

SECFUL 

STA 

MEMCNT 

XRA 

A 

RET 



;IF END OF FILE 
;MEMORY COUNT 0 .. 128 

;IF LOGICAL SECTOR IS FULL 
; SUCCESS 


SECFUL 


m 

ADI 

JZ 

STA 

XRA 

STA 

RET 


BFLMSG DB 
DB 


B>F5 

SECNT 

1 

BUFFUL 

SECNT 

A 

MEMCNT 


;LOGICAL SECTOR FULL 
;INCREMENT SECTOR COUNTER 
;IF l-Oatf-L O G- ICAL SECTORS 


e- 

15 t( F Ft 


^hP 

FULL 


B 

I S' 


;RESET CHAR COUNTER 


BEL,CR,LF,'SOURCE FILE IS TOO LARGE.* 
CR,LF,'DESTINATION FILE CLOSED.*,CR,LF,*$* 


BUFFUL -LXi- 

CALL 

LXI- 

CALL- 

MEMCLOS LDA 
MOV 
INR 
LHLD 
SHLD 

MEMLl MVI 
LHLD 
MOV 


MS GHQST ClFfhiSr 
—D-,LFLMSG 

SECNT 

B,A 

B 

BUFADD 
MEMADD 
A, 80H 
MEMADD 
D,H 


;BUFFER IS FULL 

;HOST MUST STOP SENDING 

;WRITE MEMORY BUFFER TO DISK 
;^D CLOSE DESTINATION FILE 

;(B) COUNTS DOWN LOGICAL SECTORS 
;RESET ADDRESS OF MEMORY BUFFER 
;INCREMENT MEMADD BY 8OH 
;BYTES WRITTEN PER SECTOR 



Lbfy 



. ) 



ST/} 

D f f 'L 

C- BTSTtKCr 

Hvr 


&Fri 

dLFs: 

O 

O^^TIT 



la. ■ 

\ 


6-aTi. 

j 

Jcrmn 

Tnp 

nEhc^Los 

NOV 

nFfi 

/ . 

/ 

1 

H 

/ 

lD/? 



1 t\JC 

A 


S ■ 






MEML4 


MEML2 


MEML3 


LOSTMG 

• 

MEMADD 

BUFADD 

MEMCNT 

SECNT 


inuv 

ADD 

MOV 

JNC 

MVI 

ADD 

MOV 

SHLD 

PUSH 

CALL 

LXI 

CALL 

POP 

ORA 

JNZ 

DCR 

XRA 

ADD 

JNZ 

LXI 

CALL 

XRA 

STA 

STA 

LHLD 

SHLD 

ADI 

RET 

LXI 

CALL 

JMP 


E 

L,A 

MEML4 

A,1 

D 

H,A 

MEMADD 

B 

SETDMAF 

D,FCB 

WRITSQF 

B 

A 

MEML3 

B 

A 

B 

MEMLl 

D,FCB 

CLOSEFF 

A 

MEMCNT 

SECNT 

BUFADD 

MEMADD 

1 


D,LOSTMG 

STRINGF 

MEML2 


Xt-1? 


;IF DISK FULL 

;IF NOT ALL SECTORS ARE \^ITTEN 
;DONE WRITING. CLOSE FILE 
;RESET ALL COUNTERS AND ADDRESSES 


jr D A 

j .1,. I 

1 T 

F. ; " ' L 


F[ f ,F£ "2 

■ V ' • i- 

1 

A 

,\<li FFb -=■ L ' 

.1 St /? 

■ \ SI '1 

iz-rri. 

S f w f->7 _ : - 


'1 E H ^ ^ 

B ii F 4 bt? 


1 S D 

f~if t/4 Ob 


/ l-PA 

Cl sj ' 



;FORCE FLAG 
;DISK FULL 


j-'tO u 7 


BEL,CR,LF,* DISK FULL. FILE CLOSED *,CR,LF,* $ 


BUFF 

BUFF 

0 

0 






FUNCTION 1: 
RETURN; 


CONINPF IN 
ANI 
JZ 
IN 
RET 

* 

;CONINPF 


FUNCTION 2: 
ENTRY; 


CONOUTF MVI 
JMP 


CONSOLE INPUT 

(A) = ASCII CHARACTER 

350Q+5 

1 

CONINPF 

350Q 


MVI C,1 

BDOS 


CONSOLE OUTPUT 

(E) = ASCII CHARACTER 

C,2 

BDOS 


- 

u Js 4 

L HLD 

L 

I fJ K 
I NJ V 

T 

C.ALL 

KR A 
ST A 
r 


H p D 

He nA OP 


H .... 

D" 

H 

t) -. 

^ I 

!5tr<^rHS7 

A 

io\yc 


, MR- 








FUNCTION 3; READER INPUT 






;RDRINPF IN 
; ANI 

; RZ 

; IN 

; ANI 

RDRINPF MVI 
CALL 
ANI 
RZ 
CPI 
JZ 
CPI 
JZ 
CPI 
RNZ 

IGNOR XRA 
RET 


330Q+5 

1 


330Q 

7FH 

C,3 

BDOS 

7FH ;strip PARITY BIT 

DEL 

IGNOR 

BEL 

IGNOR 

LF 

A 


; FUNCTION 4; PUNCH OUTPUT 

9 

; ENTRY: (E) = ASCII CHARACTER 

• 

;PUNOUTF IN 330Q+5 

; ANI 20H 

; JZ PUNOUTF 

; MOV A,E 

; OUT 330Q 

; RET 

PUNOUTF MVI C,4 

JMP BDOS 

/ 

; PUNCH STATUS 

9 

PUNSTAT IN 330Q+5 

ANI 20H 

RET 


; FUNCTION 5; LIST OUTPUT 

9 

; ENTRY: (E) = ASCII CHARACTER 

LSTOUTF MVI C,5 

JMP BDOS 

; CHECK PRINTER STATUS 

PRTSTAT IN 10IQ 

ANI OlH 

RET 


FUNCTION 6: DIRECT CONSOLE I/O 

ENTRY: (E) = OFFH FOR INPUT FROM CONSOLE 

= ASCri CHAR FOR OUTPUT TO CONSOLE 
RETURN: (A) = ASCII CHAR, IF ANY 

= 00 IF NO CHAR WAS ENTERED 

IF BDOS VERSION DOES NOT SUPPORT FUNCTION 6 

DIRCONF MVI C,ll ;GET CONSOLE STATUS 

CALL BDOS 











; KL 

; MVI 

; CALL 

; ENDIF 

• 

DIRCONF IN 
ANI 
RZ 
IN 
RET 

;DIRCONF 
; JMP 


FUNCTION 9: 
ENTRY: 


STRINGF MVI 
JMP 


; FUNCTION 10 

• 

; ENTRY: 

; RETURN 

• 

READCNF mi 
JMP 


; FUNCTION 15 

• 

; ENTRY: 

; RETURN 

« 

OPENFIF MVI 
JMP 


; FUNCTION 16 

; ENTRY: 

; RETURN 

CLOSEFF MVI 
JMP 


; FUNCTION 19 

; ENTRY: 

; RETURN 

DELETER MVI 
JMP 


FUNCTION 20 

ENTRY: 

RETURN 


C,1 ;CONSOLE READ (BETTER IF NO ECHO) 

BDOS 


350Q+5 

1 

350Q 


MVI C,6 

BDOS 


PRINT STRING 

(DE) = ADDRESS OF MESSAGE 

MESSAGE MUST END WITH *$* 

C,9 

BDOS 


READ CONSOLE BUFFER 

(DE) = BUFFER ADDRESS 
((DE)) = CONSOLE CHARACTERS 

C,10 

BDOS 


OPEN FILE 

(DE) = FCB ADDRESS 

(A) = 0 - 3 IF SUCCESS, OFFH OTHERWISE 

C,15 

BDOS 


CLOSE FILE 

(DE) = FCB ADDRESS 

(A) = 0 - 3 IF SUCCESS, OFFH OTHERWISE 

C,16 

BDOS 


DELETE FILE 
(DE) = FCB ADDRESS 

(A) = 0 - 3 IF SUCCESS, OFFH OTHERWISE 


C,19 

BDOS 


READ SEQUENTIAL 
(DE) = FCB ADDRESS 

(A) = 0 IF SUCCESS, ELSE NONZERO 


READSQF MVI 


C,20 









; FUNCTION 21: WRITE SEQUENTIAL 

• 

; ENTRY: (DE) = FCB ADDRESS 

; RETURN: (A) = 0 IF SUCCESS, ELSE NONZERO 

WRITSQF MVI C,21 

JMP BDOS 


; FUNCTION 22: MAKE FILE - OPEN FOR OUTPUT 

• 

; ENTRY: (DE) = FCB ADDRESS 

; RETURN: (A) = 0 - 3 IF SUCCESS, ELSE OFFH 

MAKEFIF mi C,22 

JMP BDOS 


; FUNCTION 26: SET DMA ADDRESS 

; ENTRY: (DE) = DMA ADDRESS 

SETDMAF MVI C,26 

JMP BDOS 







